Sub del_txtbox()
For Each shp In ActiveSheet.Shapes
If shp.OLEFormat.ProgId = "Forms.TextBox.1" Then shp.Delete
Next
End Sub

    Dim obj As Object
    For Each obj In Sheet1.OLEObjects
        If TypeOf obj.Object Is MSForms.TextBox Then obj.Delete
    Next


Sheet1.Shapes("TextBox1").OLEFormat.Activate